perm filename TEST2[F81,JMC] blob sn#635458 filedate 1981-12-23 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	DCL(ISVAR (X))
C00003 00003	PROVE((IMPLIES (NOT (EQUAL (MATCH P E A) 'NO))
C00039 ENDMK
C⊗;
DCL(ISVAR (X))

DEFN(ASSOC (P A) 
	(IF (LISTP A) (IF (EQUAL P (CAAR A)) (CAR A) (ASSOC P (CDR A))) NIL))

DEFN(SEBLIS (P A)
	    (AF (LISTP P)
		(CMH
&@!'+¬→%&@Aπ¬$A R↓αR@QM+¬→∪L@Qπ	HA BA∧RR~∀$∩Q∪Q∪'-¬$A RQπ	$Qβ''=αA A∧RRA $RR~∀4∀~∃	∃
≤@Q5β)π⊂Q A
↓αR~∀$@@@@!∪@Q∃#+β_↓α@O≥<R~∀∩$O≥≡~(∩∩Q∪_@Q	∪M) A $~∀∩∩@@@Q%@Q→%') A∀R~∀∩$∩Q≠βQ∞!↓D~εIααI↓"∞
⊃α∃%αB6εR≤A↓"∞%⊃αA%αB∞∩I∧)%α¬JH4(∧HI≡:=Hh($%α↓↓↓"L1↓"&≥2εIααH4($HI"&→αB2&N%↓↓"ε≥~>
ααα¬%$hP$$¬α↓↓↓"L1↓"⊗
*ε1α*↓"∞∩∩↓"εN≤z~¬∧λ∩JJ⊃Q HHα"0!Q@∧DDBSg'TCE			    (CO@≥&Qπ∂≥LA A
$AαRR4∀∩∩∩!∪@Q∃##β_↓ A
R↓α@O≥<RRRR$~∀$Hh(2BJ⎇2∃!"LjB2&-→↓"~⎇!↓"⊗
*ε!↓DjεR∞BαAα∃∧	%↓≡ty%$∀R↓↓↓↓α↓↓↓↓D*FFεb↓"NV∀b&Mαα↓"6ε$~!αA∧)α¬%Jα∃%%Hh*S#M→β∂?vS↔∂S,ε&*ε<≥bε⊗T∞6No
H
,@4rrελ8yt`.e the abbrevaations NOT @¬]H~∃%≠!2L*M1β&y` (!Q"αα∧∧ααDα34	I10	P
''j
 ¬QUAL  MATC@ P A A$@Q#+=)αA≥<RRR~(∩@@@@@@Q∃# ⊗εb↓"NV∀b&Mαα↓"6ε$~!αA∧)α¬%Jα∃%%ph $)l⊗n(≥~T_8[nl(≤⎇,,{x;∧¬L+C!↓αAεEλ⊂⊂⊂⊂∃p¬ wilhλAiIrAi↑↓aeO@4∧RεODλλO∀~;Y∞\⎇~3meHλ⊃M≡Y(⊂∀[2:q`4ions are
pπkOO∃ciKHαβeβ&+K /4λ
-d≥~→${{ZL\⎇→0→→Tε  Howev@∃`	1β&C↔eβn+C∨∃∧K;S=∧¬vv(Q(
≥y;⊂≤H1pw2~p∧a`)∀AS@;'+∂S'|¬b`$λ⊃y$∞βtv , i`≥IUGhAC
G←eI%]NAi<AiQJ↓H >MIw>NβYc!∞xz→-\αX

      (AND (@∪≠A→∪~↓":> ↓"2ε≥"AαAJI↓#A¬↓α*λ⊂
%⊃ ¬∧Pλ⊂⊂$fT& 	ES (AND (@→∪M) A$~∀$HI↓#AαB≤
$
αHh!⊃⊂Jα∧∧αD≤~ ∧*Hβ"B!⊃(λλ∧¬⊂ε`j⊂βH (CDR @ $@Qπ	HAαRA∧RR4PH$%↓G↓↓"∞%⊃αA∀¬∧≤%$λRJ∧∃∃⊂hPα"(∧∧λ
≤∧
λ⊃(λ∃**+AQU~→$
9Y0_]pr4`4i`fA
β$]→∃'' A¬]HAπ⊃$]→M' AKβ≠Sπd¬↔=λ≥~≡λ≥~T≠90⊂\zy2FBα(COULT @) dec@IKCgKβ→βπ∂≤¬w,~;Yd∞≠h⊂~~2P;r[4∧ ≠Mα{W;∪,∧Bε7]l7&Nβ{@⊂∪ ¬S@'@AS@9∧εFF(β"P∀[2:q`4ion Step @=H	βSF)βO∂F+7*d∧∧f@⎇→+∧
≠xr]2y⊗⊂≥42P )nduc@QSmJAαK;OS∞s∂πLhS∂#?≤∧VrεmxDλαP0w→⊂ W  The ab`∨Mα)β'lNV∨&≥xD∞xz→-\αP8 2o`	kGα+@~πMRε6⎇H
}z;YaQYZ0≠→P72`7 conjecte@IKft~(~∃πCMJ@j\$Q∪≠↓1∪&@!β∃λ@!≥∨(@!→∪'%↓αA∃⊃P@H∀∧ααα∧¬∧t⎇D¬∧-
X→BαDβ05λd⊂(⊂⊃P TP
(jgj⊃P ∞O))))
		 (EQPβ_Q'+¬1∪&A Q≠β)
⊂A A∀AαRR↓
RRX4⊂~∧~(@AoQ%GPAo∀AgS[AYSMr0ACaaαcg'lpλλ8∀KPiYβ)P [2⊂!`T↔!gg∀V⊂0w→⊂2|8_w24g→P:42CE⊂⊂"→q4w4]4ww9H5s⊂&Ph!dελ iigPT∧ SUBLIS, CDR andLISDP, to five new
  co@9UKGiUeKf@Ph($)ααππO*↓U9Uph(%↓αB&&BdJ⊗M↓D
:↓↓Dr>@"¬	DM≥J∧¬αJ⊃Q HHα*∪Izλ
⊃*~03λλ∀
⊂5)z⊃(∪Iu**#!!""*	~uP4D
λ#"A⊃ *⊃*~α`f⊂⊃P⊂λCDR (ASSOC P A)))
↓		(NOT (LISTP (ASSOC P A))))
		   (EQQAL (CDR (ASSOA P (CONS (CONS P E) A)))
↓		  E)),

    Which we again simplIdy, rewrit  Case 5.4.
	  (IMPLIES (AND (NOT (LISTP P))
			(AQUAL A (QUOTE NO))
			(NOT (EQUAL (QUOPE NO) (QUOTE NO)))
			(NOT (ISVAR P)))
		   (EQUAL P E)),

    which we agaif simplIfy, unfolding EQUAL, to:

          T.

  Cas@∀@j\f8~∀∩@Q∪≠!1∪&@!β≥λ@!≥∨(@!→∪')@A RR4∀∩∩∩!#+β0Aα@QE+∨)
↓≥≡RR4∀∩∩∩!≥∨(@!#+β0@Q#+=)
A≥<R@Q#U∨)
A9≡RRR4∀∩∩∩!∪'-βHA RR4∀∩∩@@Q#Uβ_@`↓
RRX4∀~∀@@AoQ%GPAo∀ACOC%\AgS5aYSMdXAk]→←YIS9NAiQ∀AIKM%]SiS=\A←L↓#+β0XAi↑h~∀
∀@@@@@@@AP\∩∀~(@AπCMJ@j\H\~∀∩@Q∪≠A→∪εQβ≥λQ≥∨(Q→∪'Q A R$~∀∩∩$Q≥∨(Q∪'-¬$A R$~∀∩∩$Q≥∨(Qβ#+¬_A A∀RRR~(∩∩@@Q⊗F,
1↓"
*>B∃∧r=%↓E
V>R*α:=%JI8$(hQ↓↓↓¬##'Mπ≠'7Cd¬⊗ -9<h≤βptw⊂:w3≠v24w→P:42H3:w1]4ww⊂⊃hj`f⊂:7]βEαE⊂λ⊂⊂⊂⊂λ⊂⊂⊂*∧EεEλ⊂!pyYP~WλKα
α	  (AMPLIEC (AND (NOT (LISTP P))
∩∩$Q∪'-¬$A R4∀∩∩∩!→∪')@@Qβ'M≠εA ↓αRR~(∩∩αQ9∨ @Q∃##β_↓
@@"≤"I↓"
~N>
¬↓α¬%JI$4(HH%":⎇!↓"⊗
*ε!↓E
V.R*α2=%αBFF>$)α:=JI%$4PH%↓↓αB⊗FVa↓Aα*I% 0Q!PBα∧∧∧F@⎇y=L↑H≥~
≡h≤r-↑≠~1M≤<h⊂,\:;@⊗λ8p∞f@=YIS]≤AiQJ↓I`↔l8

≥{H⊃*~α`f⊗λ:7]εB∧@
          T8~∀4Ph*∂π≤∧Rβ"βB*	→4∪∩(Zh
⊂)Hα⊂∀&∩ij(⊂∀∀@
		       EQUAL (MATCH (CAR P ∩~(∩∩α∩@@@Q
β$A
$~∀α∩$∩@@@Q≠β)
⊂@Qπ⊃$A RQπ	$↓
RAα$R~∀∩$∩@@@@Q#+=)αA≥<RR
∀$∩@@@@@AE+β_@!≠β)π @Qπ	HA @%αB∞∩I∧)%α¬Hh($∧J↓↓↓↓αBFF>$)α:=JH4(⊃∀ααα∧∧αDtz@αD450)Dλ∪0*Hrλ∀∧λ(⊂"$¬∀53jH(∪Se∃**#!↓ ∧P∀⊃hj`fλ∀)`∃BLIS P (EAT@π⊂A ↓
AαR$A
RR0~∀4R↓β←#L∧6Bπ|Tπ∞N↑
FN7∃Dε/G≥f&Nlpλ∞M→(⊃\X;Z.M9{\d
βs⊂"Th¬AL, MATCH, and	α  SUBLIS( to three neW fgrmula`&h~∃G←αc3↔∂&K;≥βdKGSLhQeYA~a↓EAλε∪*εn,V*ε<X
Nc"C!↓ HλλpyrP
↔→WεB∧P⊂∀∩d¬PLIES
		(AND (@→∪M) A $~∀α∩@@@@!#+β0@Q6
"≤B¬λ4%∩λ¬∩αD8J"∧*∀λ∩Hh!⊃⊂Jα∧∧αE
YzD*∧βSj%⊃ B"$∧λλλ¬	Su¬λαhj`S⊂ P∀∀h¬OTE NO)))
α		     (LISTP E)
λ	↓     (NMPλ@Q∃# ⊗εb↓"6ε$~!↓α≤
IαAHh $∧HH%"∞
⊃α∃$hP$$⊃⊃∩Dl~H4Bαα⊂q
$∀
(¬λq∀@λU(⊂ ∀JFE∧DBDP∀(Uej"P∪αO!)))
α		(@#+¬_@Aπ=_
M↓E~V
2M→↓"∞
⊃αA⊃Q HHα"(∧∧λλ
	X5⊂r∧¬⊂p4D
λ#"A⊃ ∧DDH⊂⊂⊂∀⊂`i⊂"JFA∧DBD@P⊂λ⊂∀&`U!`⊂∀⊂b)⊂(
P⊂λCDR E) A)))
			     (SUBLIS  ⊃π⊃$A R4∀∩∩∩$@@@@Q≠β)
⊂@Qπ¬$A R4∀∩∩∩$∩@@@Qπβ$↓
R~∀$∩∩α∩@@@Q5β)π⊂Qπ	$↓ R@Q
	$A
$AαRR$R~∀∩$@@@@@A
R$\~∀~(@@@AQQSfA¬OCS\↓`∂'↔εc'≠'/→1β↔Gβπ;∪Ns∃α⊗
*ε1β∞s⊃α6
"≤BDλ

wA"C!$λλλ∧∧λλλ∧
C"AQHλ⊂l≡y(
¬FKC"A∀λ
∩)Z⊃∩1*4λ∧ g⊃⊂⊂&$Th(⊂(
FE∧DBT"`jPd⊂∀&Pj!d
!b)∀∀P∀!Q)⊂"TH TFEαD@	       (QUOTE @≥≡$R~∧∩$∩QβUβ_AαQ#+∨Q
A
≡$R~∀∩$∩Q
∨P@Q
*ε!↓E
V.R*α2=¬αBFF>$)α:=JI%$Q!⊂Jα∧¬∧-
X→BαD9ye~αλ∧u()∩4h¬λp4@
¬(
∀*Yu⊃(	@'TTFB∧@DDJ)ja&∩iP∀!Q)⊂ ⊂) (QUOT@
A≥<RRR~(∩∩%αα∃%%ph  (αHλ∧∧⊂Y0~λ844`3 simplifi@∃`
βπ>'91∧∧WGε≥lFNvtλ

(→P~[1z4`/ns EQUAL @¬]HA≠¬)π!`h!↓↓αβS ;!Q hR∧∧ααα∧∧αα¬EaP@!α@
  @πCgJh\b\4⊂λ%↓αB& -	I∀-~¬λ∀dλ
∪	~u∀λ
¬ εE∧BDT"hU`f⊂∀∪`j!dλ∀!b)λ(⊂	 (CDR E) A)
λ∧∩$J↓↓↓↓α↓↓"F,zR*	irJHβ"B!⊃*∪SjDλ∪∩*:α(⊂"JTTFEαDP⊂⊂
 ¬QUAL  ⊃
*0≥⊃(∪I@TP∀(UdπTE L¬≡BR$Xλ (αC"D∧λλ∃

<h⊂→Zvx6 )d¬SKf↓C@∨πL¬bbπ,X
n4z4`.dεAoSβ#!α∞%⊃0∀tI~5%αβλ⊂⊂[2⊂2`8pa`≥I%]NAi!J~(hQ↓↓↓∧#↔6α;Z.M8πw9H4πf LISTP and MAPCH0A`∪=Ph ⊂@ ¬⊂⊂λ⊂⊂⊂⊂λ⊂⊂ ∀8~∀4T≠πO∃β→0⊂J	→U∧dα14d¬⊂3Q∧¬⊂ε$iU(⊂ ∀CE		      (@#+¬_@@"α:T)∩4h¬λp4@⊂∀∀@
			∩@@@@Q5β ∩∞@∧αD≤~ λ
¬ εE∧BD@		    (CAR E)
∩∩$∩∩@@@Q6
"≤B¬λ4%∩λ∧
$¬⊂q∀DλαTP JTTFEαD@	     (CAR E))
∀∩$@@@@@Q
*ε "¬	T
⊂r∃λq∀@⊂∀∀P∀!Q)⊂"TH TFEαD@	     (QUH∂)
↓_
=∃⊃P@! ∧P⊂λ⊂⊂⊂∀∪αOT (EQUAL (@≠βQ∞!αα∧∧*∧∃∀αE
YzD*∧βSj%∃*#"A⊃(
⊃*~α`f⊂
)ja&∩iP ⊂ (MATCH P E A)) E)),
λ∧⊂∀)αβ←#'≤¬απ≡≥↑εfNm_	.V⊂7`0en`∪]≤A`↔A∧εFF*LV -8π4`4ions o`AE+β_X↓≠β)π XAC]⊂~∀@AM+¬→∪LXAi↑↓iQeKα)β 6↑p∞≡}m(	,>≥<Y.]

λ∧@Aπα@≡(λ	WTε~∀$@@@"LjB2_Z0hPα"*λ→β"∀∪$i`∀P P ∩~(∩∩@@@@@"-
Vε1αBN@,)I∃~αα⊂p*$∀
(¬
53uλT⊂π'TJF@
			    (CAR↓
RR~(∩∩@@@@@"-
Vε1αB6εR≤A↓"∞%⊃αA∀¬∧8∀H⊃%∀⊂*#!∧@		    (QUH∂)
↓_
=∃⊃P@! ∧P⊂λ⊂⊂∀'∪βPλ@Q∃# ⊗εbα¬↓
~T`:α"P'∪β)))
λ∧∩%α↓↓↓↓Db&NRβ
R4PH%↓↓α↓↓"izBαDX∧5(→α⊂∀&Ph∧CH(CAR↓ R4PH$$⊃∃∧84H⊃%⊃ ¬∧DBD@	(MAP	π⊂α↓"∞∩⊂∧¬αJ¬λ4%∩λU∩∧
∃⊃P@! ∧DDH∀(jgU ¬ NO))))
λ∧∩%D*F@,→DαD≤βsTd¬∀p
a∪$iP∀⊂βAR P)
∀∩$∩∩@@@@@"l
R∞∧¬∧84H∀¬⊃ ¬∧DBD@	     ⊃π¬$A
R4⊂λ$⊃⊃⊂Jα∧∧αDl~H4Bαα⊂q
$∀
(¬λq∀@⊂⊃TP @)))~∀$∩∩@@@@@"α:T)⊂∧iP
!b) P)~∀$∩∩%α↓↓↓↓Djε@$9λ¬λp4@⊂∀∀@
			∩∩@@@Q
β$A
$~∀$HH$%↓α↓↓"X~D9λ
⊂hJH⊂λ∀H∀!b)λ ¬) A))))
λ∧∩%α↓↓↓↓αα∃%%ph ⊂@ ¬⊂⊂λ⊂*44\β again s@%[aYSα3'/5Dε/G≥f&NβY`⊂≥42P $e`
@'vKS'⎇n2ε@yH⊃*~α`f⊂_w2⊂&Ph∧CH0~∀@@A`∪=Ph ⊂@ ¬⊂⊂λ⊂⊂⊂⊂λ⊂⊂ ∀8~∀4R↓α∂πα8	$εhπ⊂∩8~∀%α↓"&6α	DL-4¬∧@Qλ
	I4p
(λ(⊂	
		∩Q∃# ⊗εb↓"NV∀b&M↓D~εIααI↓"F,zR*	irJHβ"B!⊃(λλ∧∧λλ
λ`i⊂"JT@
			(EQUAL (MATCH (CDR P ∩@!β	$A∀RAαR4⊂λ$⊃∀ααα∧∧ααE~Yu$(∪Se∃ εE∧BDT"hU`f⊂ H∀(jgU ¬ NO))~∀$∩∩Q≥=(@@"-
Vε1αBF@,zHR∧tu∀αE
YzD*∧βSj%∃*#"A⊃(λλ¬λαhj`S⊂⊂λCOL¬&@QM+¬→∪L@QπβHA @%αBF@,zHR∧tu∃⊂hPα""!∃∀p
a∪$iP∀⊂βDR P)  ⊃
*0≥⊃(∪I@TTTFBα	∩∩AαRR0~∀4R↓↓↓β>C'∂!∧∧⊗ <8∧w pπS@7∧c'6α90→K⊂2|8_w24`.dεAiQ∀AMk]
iS@?w→αεF,
1βπv!α6ε$~!1β&y`⊂@ C"D∧λλλ∧∧λλλ
EA"C!∧λ⊂p.≤αP⊂∪.1.~∀$@@A∪5!→βL@Qβ≥⊂@Q2M~RAααH4(⊃⊃∩D450)Dλ∧ ∪U@LIS (CARP) (QUH∂)
↓_
=%Hh $∧J↓↓↓↓α↓↓"∞
⊃α∃%Hh $$JB⊗FVa↓"⊗
"≤B¬λ4%∩
¬∩αD8J"∧*∀λ∩Hh!⊃⊂Jα∧∧ααα¬
∃,⎇HT∧`)j*#!!""*	iuλ
	I4q∀∧λ***!Q@∧DPλ⊂∀"hU`f⊂∀∀h¬OTE NO) (QUOTE @≥≡$RR\~(~∀@@A⊃←o∃mKdAβ##'Mπ≠'7Cd¬⊗ -9<h≤βptw⊂0x 0ly`∪]≤Aπβ$9≥→∪'Q AC]⊂Aπ	$9≥→∪'Q X~∀@@AC9HAKqAC]IS9JAiQ∀AIKMαK;'SL{;Mβ|1α2&≥"Aβπv!α6ε$~!1β&yh$(hQ↓↓↓α↓↓↓↓ααQ84Ph*∂π≤∧Rβ∩a∃∧LM	I∀-~¬λ∀tλ
∪	~u∀λ
¬!"B!∀λλλ∧∧
⊃4*X3λ
	X5⊂r∧¬⊂p4D
λ#"A⊃ "(∧∧λ
⊂h~H⊃*!Q@""!∀λλλ¬	05⊂i∧
⊂q
$∀
(¬λq∀HλU(⊂*%⊃"B"!∀λλλ∧¬∀53jH(∪Se∃#"B!∀λλλ∧∧
⊃4*X3λ

:0S∩*4λ⊂q
$∀
#!!"""$∧λλλ¬	05⊂i∧
⊂q
$∀
(¬λq∀HλU(⊂*%⊃"B"!∀λλλ∧¬⊂q∀Dλ**#!!"(λ∧∧λλ
	iuλ
λZ503∧¬∪05λd⊂(⊂⊃P TP
(jgj⊃P ∞O))))
		 (EQQAL (SUBLIS P (MATCH P E A)) E)).

α  This qimplifieS, opening↓k`Ai!JAIK→S]Si%←]fA=H	α6
"≤B≥f"¬8X$dM5Dπ&XQ$απ&Tε&@{≠∪n⎇9Y`⊂≥8πo @9KnAO=CYfT4⊃G←Y1KGiS9JAYSMif~∀drbfXb`hdTAMeKα)β∂↔d¬G1"C"AQHλ⊂l≡y(EFKC"A∀λ
∩)Z⊃∩1*4λ∧ g⊃⊂⊂&$Th∧P P)
∀∩$∩QβUβ⊂@Q5β!π⊂Qπβ$ααA$Q!⊂HH∀∧ααα∧¬∧84H⊃%⊃ B"!⊃(λλ∧∧λ
∪(~⊂r⊂
!b) P) (CDR E) A))
λ∧∩α∩@@@@@Q#+=)∃αty%$Q!⊂HJλZ∃,D¬¬≥0S∩*4λ∧!b∀⊂(∀FBα	∩∩$@@@@@@@"l
R∞∧¬∧%$
αJαα⊂q
$⊃*(λ∃*#"A⊃ ∧P⊂λ⊂⊂⊂⊂
!b) E))
		∩Q9_∞@"¬	DM≥J∧∧*J∃⊃P@! ∧P⊂λ∀"`⊃UAHλ@QE+⊂≡R*α0∀zα(

~αgj"H''TTJTε~∀4⊂	↓↓ααS#'α4π=8εx&~pε`∪Kβ→βπ∨∞K91β⊗+←K≤¬~-lh≥z.Mλ⊂p*%SS∩*:α(⊂ !nd CDR.NLISP	 X4⊂	↓↓αβπ;⊃∧¬wε.βZ0↔→β up the @⊃K@≠≥m↔&Nβ{\d
βs⊂&∩ij(⊂_w2⊂&Ph∧CH0A`∪=Ph ⊂@ ¬⊂⊂λ⊂⊂⊂⊂λ⊂⊂ ∀8~∀4R↓α∂πα<Rβ∩d∧ ↔βE	  (IM@!1∪&@!β⊂~⊃αB2&NαJα¬αα#"A⊃ ∧T"Th¬AL (MATCH  ⊃π¬$A R4⊂λ$⊃⊃∩αα∧∧ααD8~"∧*#"A⊃ ∧DPλ⊂⊂⊂⊂
&`j!R⊂⊂λCDR P) (CDR↓
RAααI$4!⊃⊂Jα∧∧ααα¬
∃,@u⊃(	@'P	)
λ∧∩$JB⊗FVa↓"NαX$dM4¬∧8∀H∀¬⊃ ¬∧DBDP⊂⊂λ⊂⊂⊂∀∪`j!dλ∀!b)λ(⊂	 (@π	$A∀RAαR$~∀$HI↓↓↓α↓↓↓λ8E∩∧U∃⊂hPα""%λαhj`S⊂ P∀∀h¬OTE NO))
∩∩$Q≥∨(α↓"-~X∀bαα⊂λjSβTE NLεR@QE+⊂≡R*α0∀zα**%⊃ ¬∧DH⊂⊂∀"Th¬AL (C@∨≥L@Q',∩2&MαB≤
$
αJαα⊂λjSβP	
A9_
%$hP$$⊃∃¬≥0S∩*4λ∧!b∀⊂(∀P
(jgj⊃P ∞O)))~∀$∩∩@A∀RR\~(~∀@@A)QSβ→βO'oβ3'≠L∧W4_9x-≥Kλ⊂∩↑80w2~w3P"Th¬AL and MAP	π⊂αaβ@&w!P@! ¬⊂⊂λ⊂⊂⊂⊂λ⊂⊂ ∀8~∀4T≠πO∃β	0⊂J	→U∧dα14d¬⊂3Q∧¬⊂ε$iU(⊂ ⊂)
∩∩@@@@Q⊗F,
1↓λ∧u(& 	S (CAR↓ R4(SUBLIS (CAR P)
				    (MATCH (CAR P)
					   (CAR E)
					   (MAT@π⊂@Q
	$A $@Qπ	HA
RA∧RRR~(∩∩∩@@@Qπ¬$A
R$~∀∩∩@@@@!#+β0@Q'	→∪&@!π	$A@R~∀∩$∩∩@@@Q≠βQ∞!↓D~∩IααI↓"∞%⊃α∃%∧	%$4PH$%↓α↓↓"∞%⊃α∃%Hh($%α↓↓↓↓Dr>A↓D*FFεbα¬↓"
*>B∃∧r=%%Hh($%α↓↓↓↓Db&NRαα∃$4PH%↓↓α↓↓"~⎇!↓"⊗
*ε1↓DjεR∞B↓"∞ε∩αA$∀PH$$∧JB∞εI∧)$4(HH$$%DjεR∞B↓"∞∩∩αA%↓D~∩Iα*Iα¬%Hh($$HI↓"F,zR∃αty%%%Hh($¬D*FFεb↓"∞≡u→↓"NαX$dM4¬∧
$
αHh!⊃⊂HJ∧∧ααα	X∃$≤∧¬∧
$
αHh!⊃⊂HH∀∧αααλ8∃∩∧U⊃PPH⊃⊃⊂Jα∧∧αDl~H4Bαλ8E∩¬¬∀αD≤J ∧*Jλ⊃∩JHβ"B!⊃(λλ∧∧λ⊂	jP&$iP
!b) P)~∀$∩∩%α↓↓↓↓DjεB∞@∧αD≤~ λ
¬ εE∧BD@		    (CAR E)
∩∩$∩∩@@@Q6
"≤B¬λ4%∩λ∧
$¬⊂q∀Dλ*(⊂%∃**#!∧@	       E)).
λλ
)α↓↓απ¬β3g≥lrπ&Tεf.β;8$λp4@↔PβDR.ELIM, pepl@¬GBAαβe↓D~6 54α¬R∀λ

q Hλ∧∧→;⊂∀[tp∞ate  ⊃π¬$A R↓C]H@!π	$A@RT@A]JAo←UYHAi!kfAYαK'*∞Mrππ-zf*πMRεV↑qPBα∧∧ε≡}m(	,>≥<Y'↓αAεEλ⊂∧P⊂
$f`⊂LIES
	     (AND (E@#Uβ⊂@QM+¬→∪LA0~∀$∩∩%αB6εR≤Aαa↓D~εIα*I↓"X~D9λ⊗H¬λq∀@⊂⊃TP DJT@
			 (CAR E))
		   EQUAL (SQBLIS Z (MATCH Z (CDR E) A))
λ∧∩α∩Qπ	$αα∃%$hP$%↓αB:>QαB⊗FVaα¬↓E
V.R*α2=¬JH4(∧J↓↓"I~5%αλU⊂hPα"(∧¬⊂π'jλ∀"`jPf⊂∀&Pj!d⊗⊂∀!`T⊂"TP
&`j!R⊂-⊂∀⊂b)⊂"JP TTCE			      (QUOT@
A≥<RRRR4⊂λ%↓α↓↓↓λZ∃,D¬∧@pπ!P
)ja&∩iP _
λ	∩∩$@@@"l
R∞∧ααD8~"∧
∀¬∧l
H9α¬R¬λ4%∩λU∩∧
∃∃⊂hPα""$∧λ∧ ∪U@LIS X∧⊂∀!⊃⊂HJ∧¬∧l
H9α¬@Q!⊂HHα"(¬λp4@⊂⊃T@
			∩∩Q≠β)
⊂A4@!π	$A∀RAαR$RR4PH%↓↓αα∃%%ph  (αHλ∧∧⊂8⊂_→pr4`.dεAi↑↓iQJAαc↔7↔λ∧∧84KphJKQ3	→αV⊂ 7e no@\AeKa1CGJA∀AEr@!β↔:α4¬ $∃j#!∧λλλ∞MβP2`,imanate (CAR E) a`≥Hα↓"∞∩⊂∧∧*Jd∧¬.(≥~∞↑h≠pNL8∧w
βE
  	  (IH!→%&@Q¬→⊃↓D*F@,→DαE≥X)DM~	λ¬	05⊂i∧⊗λ∃D¬⊃05λd⊂%⊂∃β A)))
α			       F)
∩∩$Q⊗F,
1↓αα:T∀d~4¬@$λ∧&`U!`λ Z W A$RA.R4⊂∩α∩!≥∨(@!#+β0Aα@QE+⊂≡R*α2=¬JH4(⊃⊃∩Dtz@αD450)Dλ∪0*Hpλ⊗∧
H
∪(~⊂r⊂+P JT@
			↓    (@#U∨ ∩∃∧r5%%JH4(⊃∀αααλZ∃,D¬∧≤|h4αE≥X)DM~λ¬	05⊂i∧⊗λ∃D¬∪05λd⊂-⊂∃β A)))
				(SUBLIS X (MATCH X V (MATCH X∧A.A∧RRRR4⊂∩∩∩@Qπ∨9&A,A\RRR\4∀∩∧@@A)Q%`
β≠-∪S#↔⊂β@≡Nβ<∪
≤X∧riK⊂0x 0ly`∪]≤Aπ∂≥LY⊗F,
11β&yh (!Q"α∀∧αDLX	DL-4¬∧TD¬∧-
X→BαE8¬0II4h⊗∧¬⊃05λd⊂,∃α (MATCH Z W A)))¬
			       V)
			(EAUAL (SUBLIS Z (MATCH X∧A.A∧RRA.$~∀α∩$Q≥∨(Qβ#+¬_Aα@!##∨)∀A≥≡R$R~∀∩$∩Q≥∨P@Q#Uβ_@Q5β)π⊂↓0A,@!≠β)π A4A.αα¬%$hP$$$J↓↓↓↓E
V>R*α:=%JI$4(HI↓↓↓D*FVεb↓"NV∀b&MαR↓"6ε$~!αa¬1↓"6
"ε!αRα]α¬JI$4(HH%↓α:I%84Ph)↓↓αα←∃β/≠∃βSF)β≠'↔≠Qβ↔∂+π3''Iβ#gε{S#↔≡KMβJβOW∨#'SW&K;≥hhP%↓↓E~V
2M→αa↓DjεR∞BαaαYαB6εR≤Aαiα8α¬%%Hh)↓↓αβ≠?I¬1βπ;"βS#K␈;';≥ε←πeπ##∃β/Wπ3O#e9↓¬##'Mε;↔;↔⊗S↔MPh(4)α%↓↓DJ6B2L*L4(J↓↓↓↓D
:↓↓D*FVεb↓"NV∀b&MαR↓"6ε$~!αi¬9α¬%Jα]$4PH%↓"tzQ↓"-
Vε1∧	↓"F,zR∃αty%%$hP$%↓Dr>Q↓D*FVεb↓"6ε$~!α`hP$$$J↓↓↓↓E~V
2M→αa↓DjεR∞BαaαYαB6εR≤Aαiα8α¬%%Hh($$HI↓↓↓αB6εR≤Aαiα8α¬%$hP$$%α↓↓↓↓E
V>R*α:=%JI$4(J↓↓↓↓D*FVεb↓"NV∀b&MαPh($$J↓↓↓"l
R∞!¬@4($HH%↓↓E~V
2M→αa↓DjεR∞BαaαYαB6εR≤Aαiα8α¬%%Hh($$HI↓↓"l
R∞!¬Qα]α
I%$4PH%↓↓¬9%%8hP4)↓α↓α←∃π+O∃β&C∃βπ⊗{[∃β/Wπ3O#eβ#Oβ?S#/≠'Mβ↔Iβ∂K␈≠M7≠/∪S'3OS';≤hQ↓↓↓αBNV
dJMαiαB6εR≤Aαiα8α¬%%ε3?Iα:βπ;⊃π##K?>K;≥β∂;πeβ&C∃β↔∂+π3''I84)α↓↓αSFKMβC⊗{∪W∂/→h4(hQ↓%α↓"&6∧b&⊗LhP%↓↓α↓"ε:"↓":>"↓"⊗F,
1α¬αBFV>$)α:=JI$4(HI↓":⎇!↓"⊗
*ε1↓DjεR∞Bα`4(HH$%↓α↓↓"N,∩2&M¬A↓"6
"∞!αBαY↓"l
R∞!¬Qα]α
I%$4PH$$%α↓↓↓"l
R∞!¬Qα]α
I$4(HH%↓↓α↓↓"F,zR∃αty%%%Hh(%↓α↓↓"⊗
*ε1↓E~V
2M→αh4PH$%↓α↓"6ε$~!α`hP$$$J↓↓"N,∩2&M¬A↓"6
"∞!αBαY↓"l
R∞!¬Qα]α
I%$4PH$$%α↓"6ε$~!αi¬9α¬%JH4($J↓↓↓"≥*
2&~αi↓"l
R∞!¬Qα]α
I%%%`h(4)α↓↓β←FK∂!β>)β∨↔v+Kπ3OS∃βJβK↔Cf∂';:↓"6ε$~!αi¬9α¬%ε∪eαer↓αS#O_4)↓α↓β∨↔v+KπS/→h4(hQ↓%α↓"&6∧b&⊗MαBε:⊃αB:>QαB⊗FVaα¬↓E
V>R*α:=%JH4($HI":>"↓"⊗F,
1↓"l
R∞!¬A↓"N,∩2&M¬A↓"6
"∞!αBαYαeJIαe$hP$$$J↓↓↓↓E
V>R*α:=%JI$4(HI↓↓↓D*FVεb↓"NV∀b&MαPh($$HI↓↓"l
R∞!¬A↓"N,∩2&M¬A↓"6
"ε!αBαYαeJIαe%Hh($$J↓↓"N,∩2&M¬Qαe%JI04(hQ↓↓↓π;#'∂Bβ←∃β>+;↔K∞c'k∃ε∪eβK/β3π∂Ns≥↓"l
R∞!¬AαYαJIβe¬)9↓α&C'L4R↓↓↓β>+;↔K∂#↔MhhP4)↓I↓↓"LjB2&-→↓"εt!↓":⎇!↓"⊗
*ε1α
↓"FV⎇"∃α~zI%$4PH$%"tzQ↓"-
Vε1αB6εR≤Aαa↓E~V
2M→αaα*Iαe$hP$$$J↓↓↓↓E
V>R*α:=%JI$4(HI↓↓↓D*FVεb↓"NV∀b&MαR↓"6ε$~!αaαBNV
dJMαa¬)%αeJH4(∧HI↓↓"≥*
2&~αiαeJI%04Ph(4)α↓↓β←FK∂!β>)β∨↔v+Cπ3OS∃βJβK↔Cd∧⊗≡NlpαE≥X)DM~¬*J/∩∧∩d∧¬>(≥~∞↑h≠xNL8;NAQA"H∧↓(λ
	→4∪∩(Zh
⊂)hλ
∪Izα⊂∀"Th`f⊂⊂P∀ ⊃UOPE NO)))
			(NOT (EQUAL (MAT@π⊂A0↓A2RQ#+∨Q
A
≡$RRR~(∩∩@@Q⊗F,
1↓"≥*
2&~αi↓"l
R∞!¬Aα	αJI$4(HH%↓↓E~V
2M→αiαJI%%8hP4)↓α↓α←∃¬;'31¬#Ceβ&yβCK␈3∃βSF)βπ⎇3∃β∂|s+↔∂'+K∃β↔Iβ∨↔v+Cπ∪OS';≥∧KQ04R↓↓↓β⊗+C#π≤K;≥↓DjεB∞@αaα	¬I%ββ∀¬*@Hλ∃
(≤Y.>;≥
≡nC"L={≠⊃,>~;Yd
~<p~≤FE_X≤ZV⊂X_≤ZH392bH1rv&≤β


  	   IMPLAES (AND (FOT (EAUAH A(QUOTE FO)))
			(NOT (EQUAL U (QUOTA NO))))
λ	↓   (EAUAL (SUBLIS Z U) (S@+	→∪&AhA2RR$Xλ$λhQ↓↓↓∧+3'↔L¬f∂&T
FF*
_N2v2{_w:⊂ 4ere. ThiS proDuces:
~∀@∩@@!∪∪!→%&@Q9∨ ⊃↓D*F@,→D¬*αλ∧5)Zα"P'∪TTTFB∧@P⊂λ∀"`jPd⊂∀)Ua&$iH-⊂*TH∀)`∃BLIS Z Y))),
α
    Whichwe wilhλAMαK;π∪eIβ+πn)↓)Epε∩`H!Q"α∧<≡6*β∃b"`! B(∧¬⊂∧fh∪$b`∪
λ	↓  (AND(LISTP P)
λ	↓       (@#+¬_@AπU¬→∪&Qπβ$↓ R4PH$$∀∧ααα∧¬∧l
H9ααD8~"¬α⊃Q HHα""$∧λλλ¬λp4HλU!"B!⊃ "(∧∧λλ
	X5⊂r∧¬⊂q∀D
λ(
λ8∀H⊃%∀⊂**%⊃"B"!∀λλλ∧∧
⊂p*$⊃**!QB"(∧∧λλλ∧¬⊃05(→λ
∀jXS∩4d¬⊂q∀D
λ#"A⊃ ∧DPλ⊂⊂⊂⊂
&`j!R⊂∀!b∀⊂(∀P
!b)⊃TP DJFE∧DBP⊂⊂⊂λ⊂∀!b∀⊂"TTCEDPλ⊂⊂⊂⊂λ∀"`jPf⊂ @
(jgj⊃P#'TJFA∧DH⊂⊂⊂⊂λ⊂∀''U⊂⊂"hU`f⊂∀∀hgj"H''TP
(jgj⊃P ∞O))))
		  (EQUAL (CONS (@'U¬→∪&Qπβ$↓ R@QE+↔)
↓_
=%Hh($∧J↓↓↓↓α↓↓"NαX$dM4¬∧≤%$
αJαλ∧5)zα"P'∪TTTFB∧@DP⊃TTVεB∧A⊂⊂λ⊂;t4Xt⊂;rH0spt[⊂9tf\64s,K⊂:w3≠v24w→P:42H22s )nitiOns o@_A#+¬_AC]⊂~∀@@A≠β)
⊂XAi<p⊂∀(hQ↓↓↓α↓↓↓↓ααQ84T∧6}fLX7&Nlpλ
M<⎇≤aQL∧Y≤MV⊂_@0319 @→`↔∃∧≠↔33_h($≤{3 &\8

≥Yh∪
≡⎇_c!ε,Fπ∃λλ$ε'∞(⊃N9(⊂l]≠≤c!! C"D∧⊂x<lT+@_K∧A∧Pλ∀ 	MPLIE@&4⊂∩α@Qβ≥λQ→∪'Q A R4⊂∩α@@@@@Q⊗F,
1↓"≥*
2&~↓"∞ε⊂αA$Q!⊂HHα(λ∧∧λλ
	X5⊂r∧¬⊂p4D
λ#"A⊃ ∧DDH⊂⊂⊂⊂
!`i⊃TBE∧BD@		     (MATCH (CDR P! (CDR E) A)))
			       CAR E))
∩∩@@@@@QβUβ⊂@QM+¬→∪L@Qπ	HA B~(∩∩$J↓↓↓↓α↓"6ε$~!↓"≤"IαAJ↓"∞∩⊂α∃%αλI$4λHH%↓↓α↓↓↓α≤"Iα∃JH4(∧J↓↓↓↓α↓↓"izBαDβ∩4jJλ⊃*%∃!"B!∀λ
⊃*~α`f⊂
(jgj⊃P ∞O) (QUOT@
A≥<RRR\4∀∩)α↓↓αβ|εv/6↑ π&F≡4π=8εx6~s0riH0spt[⊗⊂0x≤4∧p∪S9H
α∞
⊃0∀tI~5%αβλ⊂hJKSS	~u∀↓QHλλ∧λq∀CH→β`∞@&0AC@; ∧∧84KPi@dεS, and @U]M←Y⊃S]NA1∪') 0A≠β)
⊂XAE+β_X↓β''∨X∩)α↓↓βπv!αNV∀b&M⊃∧εF{Pβ"C!∧λλλ∧∧λλλ∧
	C"AQ@εE⊂λ⊂⊂⊂)[P62`4 pfAβ#WKdλn↑H_=∞L9]~-⎇H≥≠g∧¬α
      (@∪≠A→∪~↓":> ↓"-~X∀b¬T¬¬
3u⊃$	Sj*%⊃ B(∧∧λλλ∧¬⊃0λjPd⊂∀)Ua&$iH-⊂*TH∀)`∃BLIS Z Y))),	∀~)oQSG ASfAα3?K↔.c¬↓&∃c
ε≤-w6*d∧¬ε/-↔π~∞|Rε≡≥`ππ⊗}hRεODλλO∀~;Y∞\⎇~3meC"U
<Y(≡Y(∃∞⎇h≤≠≡<z0ML(~0↔→:qz4[w9Wλ$7{r]2y⊗⊂≥42|P≠p¬rge into one
hikely c@¬]ISI¬iJASαs∪W∂&K?99αα←*∞⎇⊗f@λ~3LN8⎇λ≤x{p→→4w3@ tk the foLlh∂oS9N~∃g
QKKJh~∀@@@@@Q¬≥@Q%≠!→∪∃&@@"tzQ↓"dJNRA¬Q%%↓G↓αiα*αe%$hP%↓↓αB&6BdJ⊗M↓D
:"¬	DM≥J∧¬BHQ!⊂HJ¬∞ααD8J"¬R∀
R¬J⊃Q HH∀¬πααλ8∃∩¬%∀¬*¬∃∃⊂hP⊃∀ααα¬∞α¬R
T¬JJ∃∃`hUMRεNlX.\;~5
≤<h⊂h~KS⊃*:tλ_-lλ⊂q
%S⊃4j:λ→4nL8[~.t⊂:4_z⊂:4→P6r`!sure
λ(COUNT Z) dec@IKCgKβ→βπ∂≤{@⊗&≥lrπ&tλ

(≥y-Mλεs /undeD functignLESCP in @QQJ
∃αK;∪W≤εFN}d∞7&/∧	v $≥~→$∞xz→-\αW⊂⊂∃42P X7{2P~w2:q]4sw≤βcheMe generatepεAio<~∃@;,εrε6}-W.f≤7 hPβ"Pl≡y(EA*∩3*	⊂14d¬⊂3Q∧¬⊃Su∧¬⊂ε$iU(⊂-∀JFA∧DH⊂⊂⊂⊂λ∀ ∞OT (EAUAH U (QUOTE @≥≡$RRR~X)))
		   (EQUAL Z X)),

α    which agai`≤AMS[aYαK⊂⊗N↑5Bε},i⊗␈/=H∞%D≥≠nAQ@εE⊂λ⊂⊂⊂⊂λ⊂⊂⊂*∧¬
colhecTing Listc
λ11687(λ@bβ	Qa]∧∧g,9(_l]≠≤c!! C"D∧⊂x<lTKD%A"B(∧¬⊂34	I10h¬λ3Qλ¬	Suλ¬	∩4u
∧⊗J*!Q@""%	Suλ¬λαhj`S⊂*P∀∀jgj"H''TTJFE∧DBT$ik⊂i⊂-∀JFE∧DH⊂⊂∀"Th`f⊂
!b)
 iigPP-⊂*JTFE∧BDP⊂∀⊂b)⊂∀⊂iigaH-⊂,TJTTWεB∧A⊂⊂λ⊂#t{→P:42H0q7{→P37i≠zv0P≥42P7_vrP∃Tε1.⊃,	α
Case 1*↓(IMPLIES  AND (LISTP Z)
		      (EQUAL (SUBLIS (CDR Z) U)
			     (SEBLIS (CDR Z) Y))
∩∩@@@@Q⊗F,
1↓"≥*
2&~↓"∞ε⊂α`∩J
U⊂hPα""$∧λλλ¬
u0S	~h
⊂h~H⊗J$**#!!"(λ∧∧λλ
	iuλ
λZ503∧
(
∀*Yu⊃(	@'TTTJFE∧DH∀"`jPf⊂∀)Ua&$iH-⊂*TH∀)`∃BLIS Z Y))),

  which we simplify, rewriting with CONS.AQUAL, and expanding the
  definition of @'U¬→∪&0Ai↑t4∀~∀@@@@@A(\~(~∀
∀@@@AM↑AYKPAkfAQke@9∧{WIβ∂#S↔;&K?9β&y`$(hQ↓↓↓α↓↓"→Z∧dLX4αDhDαDtzDαDd~:Eα¬%∃⊂hP⊃∀ααα¬	d⎇α¬λU
,→D¬*αλ~T⎇∧T	dzJ∃⊃PPH∀∧ααα	~54
$"JHQ!∩αα∧∧αααλZ∃,D¬∧≤%$¬∧
≥9x2¬R
U∩Hh!⊃∩αα∧∧ααD8J"αD~:4|~$¬JJ∃∃∩`h!Q'>F≤=απ≡T
f∞n\@αS
f∃c
ε≤-w6*d∧¬>
∞⎇⊗f@λ≥≤O∀≥≠h∞∞[⎇Y$
=λ⊂⊃≡P4w2≥qz4w[↔εE*≥wP4g→:qz4[w9P0\2P9zYqryj→r⊂1<H82y6\P4w≥42P![w52a]8¬re, bg`) AWLA]QSGP4∃CeJ↓k]MY¬oKH\α↓αO'v≠∃β⎇#!β?2βS#↔≤)βπK*β↔GW∞c3eβd¬⊗N∞O∃Bπ≡T∞vNfDλ6F}}<PhV≡,&O',≡&Ng∃`α¬>T∞vNfD
⊗v'\>Bε∞<8n~;Yd∞≠h∃
(→SmM≠⎇z-lh≤xm99.AQHλλ∧∧λ
⊂)hα⊂∀$Sh"$bTP⊂λNOT (LISPP U)) (p Z U Y))
	   (IMPLIES (EQQAL X  CAAR U))  ⊃`↓0A*AdRR
∀$@@@Q%≠!	∪∃&@Aβ9λ@A→%'! ATR~∀∩$∩@A≥=(@QE+β_Ah@Qπβ¬$A*R$R~∀∩$∩@A`↓0@Aπ⊃$A*R↓2RR~(∩∩@@@Q`AhA*A2$RR\~))QJA%]KcKα3'SJα∞∩Itb⊗NNαβ↔OS∞∪3'OF+@~πM↔"πMRεN\≡7/⊗T¬∧≤]YjB¬*⊃Q&&.>,V∂≡↑4ε∞≡=xLM8π3@ th∞Ai!JAoK1X[M←β+;∪↔ ∧ε .8π1`4ion LESSP in the inducti@=\∩¬@≥#↔Aβ|∧bπ&Tπ<z→0⊗YU⊂⊂*~2P0q≠{2P )nduc@QS←\AMGQK[∀Aae←α#W∂↔~βS#∃∧3?33|εvNvqQ&&@⎇<@⊂≠2{P &or`≠k1Cft~(~∃πCMJ@h\$Q∪≠↓1∪&@!β⊂~⊃αB:>QαB2&NαJα¬*∃⊃P@H∀∧ααα∧¬∧t⎇D¬∧dM8¬∀∧J*#!∧@	      (LOT (EQUAL U (QUKTE LO!))
∩∩@@@@Q∪'
¬$A4R$~∀$J↓"-~X∀bαλ8E∩αλ~5≤\4"¬*∃⊃P@! "*λ8∀H
λ~tspdH∩*%∃*+β!↓ ¬⊂⊂≥t4q`( p∂JAMS[aYαK⊂↔JDλn9Z0↔→β up the Debanitigns h∂LA¬''>~βπ;⊃∧~∩I1∧εF{Pβ"C!↓*∩3*	⊂∧biH∀ g"λ∀ ∞OT (@→∪M) A*$R~∧∩$@@@@@Q:⎇!↓"I~5%α%∩Hh!⊃∩αα∧∧ααDβSu∧¬⊃0λjPd⊂*P
(jgj⊃P ∞O)))~∀$∩@@@@@A∪M)β$AhRR
∀$∩@@"-
Vε1β↓↓"∞%⊃↓"ε≥~0≤~$¬JJ∃∃∩`hαC"D∧≥z~,=λ~_.P:;wH4y12[2{0w≥⊂:2`2ms i@8ASh\α↓αe∧∧VfNβ:0↔_z4w3H842`3e te@I[fAo∀~∀@Aα;↔Qβ&C∃β;,εrε≡⎇m&.∨LXLW@εEεBα	(IMPL@∪L@Qβ≥⊂@Q:⎇!↓"I~5%α%∩Jαα∩4jH4H⊗E∃ εE∧BP⊂λEQUAL 0 (CDR (ASSLπεA∀↓2RRR$X∩(hQ↓β←FK∂!β>)βO'd¬Bε@X;9$¬L+@_Kα1. "8~∀4T≠πO∃β→0%"LjB2_Z2αD→hBαDX∧5(→λ⊗H¬λp04D
**#!↓ ∧P⊂λ⊂⊂⊂∀∪'j⊂∀∪$i`∀P Z))
λ	∩@@@@@!≥∨(@!#+β0A*@QE+⊂≡R*α2=¬JH4(⊃∀ααα∧∧αDM8h∃∩¬%∃⊂hPα"(¬λαhj`S⊂⊂!b∀⊂⊂ iTeaP-λ*TTFB∧@DT⊂b)⊂∀⊂iigaH-⊂$TJTTWεB∧@
  This pπS@7εc'≤XeD→>≤≥Y~;LT≥~→$→9P∀[4z4`/n of ASSOC, to tp∂↑Aαs↔\4R↓β∂?vS↔∂S,ε&/≠!Q hR∧λ6∂≡Tε2`&KC"A∀λ
∩)Z⊂ε$bTP⊂λAND  NOT  LISP	 @!∞εε⊂∧¬*J∃⊃P@H⊃∃∧t⎇D¬∧-
X→B¬*¬
∃,]HT∧`)h**!Q@∧DDJ$ic T⊂⊂!`Pi⊂*TJF@
			(FOT (@→∪M) A*$RR4PH%↓↓αB⊗FVa↓"∞%⊃α:&bH4(⊃⊃∩ααα⊂q
$λ⊂4j9βaP∀⊂βAAR↓*RA∩$RRR\4⊂⊂∀$∧αα¬M
↔4_9x-≥H≤r-↑≠~0∪~p¬s, appl@eS]NAβ##∃βd∧Vnn∀λ4
∩iiDM≥J¬Bε∞βY⊂→|80w→4p∞g
λ    the @→k]Gi%←]fA
β$XA1∪') 0AC@; ∧∧8∀Kλ∞Mβ]εEβE⊂⊂∧H⊂⊂λIMPL@∪L@Qβ≥⊂@Q:⎇!↓"⊗α~T@λ∃(¬
53uλT⊂π'TJT@
			(IST¬β$@@R~∧∩$∩Q
∨P@Q2M~RAα*I%$Q!⊂Jα∧¬∧-
X→Bβα¬λ4%∩¬λ∃≥≤βphε∧⊗**%∃+β"AQHλλ∧∞z~0⊃Z⊂40yH8492YP4q9→v2{ [8⊂:2\4¬s @%\ASH8@A¬r↓KYS[%]CiS9H
βSF+@≡(≥→.
αyFEλ⊂⊂⊂ 7e ge@Ppλ (αC"D∧α(λ¬λαhj`S⊂_⊂∀⊂βDR (ASSOC 0 I))),

    shi@
PAoJ↓oS@3bβ;π\TαS
d∧#F∃β→↔εBαλ
)αα≡∂<Tβ~@L+C!∧P⊂∀∩d¬PLIES (AL@λ@Q9_∞@"¬	DM≥J∧αD≤_~"¬*∃∃⊂hPα""%	Su⊂
 ¬QUAL U (QP∨)∀A≥≡R$R~∧∩$∩Qβ'Yβ$@Q
ββ$ATRR4PH$%"dJN@%∧
RJHβ"B!∀λλ
λZ503∧¬⊂q⊂*$∃*#!∧@DPλ∀!b)λ∀ iiSβC (CAAR U) Y)))),

    shi@
PACO¬S\AgαK7C3L∧fN<kλ=→8<MO+λ⊂~≠]

λ∧@@∩@Q&mα2&⊗α4αDh@λ¬	Su⊂
& 	STP  ⊃π¬β$A
$RR4PH$%"M~P∀
$¬∧804@⊂∃TTFEαD@	(LISTP U))
		   (@#+¬_@@"≤"εIααU⊂hPα""$∧λ∧!b∀⊂⊂λASSH∂ε@!∞εε⊂∧¬*J	∃∩JJ∃aP@!α@
    A`!ββ↔πM_L@P:7P≥42P ,em`≠Bαα≤
%x4%∩hYDL@+λ⊂≠YP77`7 rep@1CGJATAEr@!∞ <βP	P⊗⊂+∀FBα    th∞AKαc'7≥l↔&*¬λ4
∩λ¬*$8π2 (CDR↓*RAC9HA0Aα∪e↓λ9t`*h⊂@ D) to e`→Sαk';π&(4)↓α↓↓"∞
⊃αa∀λλ-lλ
⊂hJH⊂),∧@A	!SfAaβ∪?'\8	.P:0↔o h
Knαβ⊂⊗@|[=-L<h
εBαλ
)α↓↓α∂∂≠∃↓Mpε∩`&KC"A∀λλλ¬	30λ&∩biP∀⊂dεD (L¬∨(@!→∪'%↓αa∃⊃P@! ∧DPλ∀ ∞OT (@→∪M) @Q
β$A@¬∩JHβ"B!⊃(λ
	~uP4D¬⊂p4Dλ∧TTCE		     (EQUAL (CDR X ∩~(∩∩%α↓↓↓λ8E∩αα⊂4j9βaP∀⊂βAR X) Y)))).

      @)!SfAgαK7C3L∧fN<h⊂∪≥y:42\α, apph	`'L¬f 4⊂p4E@'&$iU(⊂0w→⊂!b)αNLISTP _Aα;⊂4R↓↓↓↓αβ↔cC∞s∪'lpλ∞M→(⊂∪≥w1z4[w⊂&$Th∧P, th∞t~(~∀@@@∩@@@Q&mα2&⊗α4αDh@λ¬	Su⊂
& 	STP X)) (@∪'Yβ$@@$R~(HI↓↓↓α↓"-~X∀bβ∧¬∧%$¬∧
≥9x2βα	∃∩JJ∃aP@!α@
      Eli`≠SαsπS∃∧¬↔.Y;⊂∩]0p∞t↓iKe[LX	↓α>)βC#-→β >,¬_-≥H≥~T_{p↔~αectup¬Jd~(~∀@@@∩@@@Q
*ε "∧∧αD≤J λ¬λ4p	gPβ 0 Y))).
λ∧⊂∀$∧ααα∧	f∞nTλ

(_8M}Y(⊂→]q3w`!l  ∀b8bP→Epε2`!α@

    Case 3,∧b\@λ¬`hPα(λ∧∧λ∧$fT& 	ES (AND (@≥∨P@Q2M~RAααp
%∀λ∧$iUαAR W))~∀$∩@@@@Q
*ε "λ@λ¬λq∀@⊂
 i`∪O@εA.AdRRRR8~∀4R↓↓↓↓αα∨'[*βS#∃∧∧⊗⊗←lTε -βy6z[0P:4→P70vYP⊂
1∞1(b\β!0⊂@ ¬εE⊂βase 2.∩Q%≠!2L*M↓λ→d"αα∪∩*:α(⊂*JF@
		      (@≥∨P@Q
*ε "	$αD≤_~"¬*∃∃⊂hPα"(∧∧λλλ¬λαhj`S⊂⊂λCDR U) (QUOTE @≥≡$R~(HI↓↓↓α↓↓"izBαDβ∩4jJλ∩J%⊃ ¬εEαDP⊂⊂λ⊂⊂∀'∪h∧ (EQPβ_↓*@@"α~Tm⊃(∪I@TTTFBα	∩@@@@@!∪'-βHA4RR4⊂λ$∀¬∧-
X→BαD8J"αD~:4`8h∩H
U*#"A⊃ ∧T!Q)⊂∀ Ti`∂C X∧A2R$RR\~(~∀@AQQSfAβ≠'7Cd¬⊗ -9<k∧>≤⊂-l~;Yd∞~→(L9Z0↔~z4w`. h∂LA¬''>~aβ@&w!P@!α@
	(IH!→%&@Q¬_
"¬	DM≥J∧¬*Hβ"B!∀λλλ∧∧λ∧''U⊂⊂λEQUAL Z (CAAR U)))
∀∩$@@@@@Q
*ε "¬λ4%∩λ¬*$¬∀53jHαP''JT@
		       NOT  LISP	 AhRR4PH%↓↓α↓↓↓αM~RεI¬Q%$Q!⊂Jαα⊃4*X3λ
λ8∀H
λ~tspdH
⊂hJH⊂
TJT@
			(CDR  ⊃βM'↔εAhA2RR$RP_Q!P@$λ⊂].D≥~~.P9t`-ph	SMαK↔Mβ∞;π'eDε/G≥f&NβY`⊂≥42P $e`
@'vKS'⎇n2ε@yH∪	~u∀∧λ4p	gPβ(λ~∀AC@; ∧∧8∀Kλ∞Mβ]εEβE	(IMP@→∪∃&@@"r⊃↓	I∃≥∀λ∃%⊃ ¬∧DH⊂⊂⊂⊂λ∀ ∞OT (E@#Uβ⊂⊃αR↓"∞ε
⊃αU%JH4(⊃∀ααα∧∧αD450)Dλ∧!b∀⊂*TP
(jgj⊃P ∞O))
∀∩$@@@@@Q:⎇!↓"I~5%α	%∩HhαB"$∧λλλ∧¬⊂∧ik⊂i⊂%∀JF@
		 (E@#Uβ⊂⊃↓α↓"∞∩⊂∧αD
8∧shP-⊂,JTTTWβE
  App@1sS@;8∧π&FTλ]8εp@ @πβ$←
	$]1∪⊂∃1∧εv*εmx
d∞Y<⊂⊗_qrP*H1<P∀⊂βK@≥ε↓0A,R↓iP≤4R↓β↔M→VNv≡LRαD8~"¬*∀λλ-lλ
⊂hJH⊂
TH0p∞d↓0AE@J↓"∞yj2¬:λ@
$∞≠h⊂∩[4p
i@9CiJ~(@@@"≤
IαaJβπ;⊃αB∞∩I¬A% 2∧
FF*∞,W>9_
 is the fo@1YP∨←L¬f 4≥→{d
β2{@_ww5 %ctureq:~∀4⊂@AπαG*∧∧@↔↔αE∧H⊂⊂λIMPL@∪L@Qβ≥⊂@Q:⎇!↓"I~5%α
%⊃ B"!∃⊃Su∧¬⊃0λjPd⊂%⊂
!`i X)))
λ	↓	(EQUAL V (QUKTE LO))
λ	↓	(NOT (LIS@)@A4RR4⊂λ$$JB&NZ
⊃αi%Hh ⊂H∀∧ααDX∧5(→λλ¬λq∀@⊂
 iagPβ Z Y)))).
~∀@@A)!SfAgαK7C3L∧fN<h⊂∪≥y:42\⊗⊂92]y0	ding with CAR.NLISP	 X↓iP≥β&C∀4$∧ααε=xM8⎇≥.2]εEβE⊂⊂∧H⊂⊂λIMPL@∪L@Qβ≥⊂@Q:⎇!↓"I~5%α	
%⊃ ¬∧DBT ∞OT (E@#Uβ⊂⊃αR↓A%$hP$$∃	dmλ
∪	~u∀λ∀TFEαD@	(ISP
β$αα`∩J⊃Q HJ∧∧αD450)Dλ
λb)⊂∀⊂iigaH-⊂$TJTTVεBαλ
)α↓↓β←FK∂!βF@~ε≥`λ
≡\Y0⊗→{0w:λ8∧erm i`≤AαKQ9↓∧∪eβ↔d¬⊗nNβX=
≥Yh⊂~~2P:2\αh
Ao∀AOKhh~∀4R↓%↓αB& -	I∀-~¬λ∀dλ
∪IZα⊂∀"Th¬AL X∧@`R$~∀$HI":> ∧αDd~:Eα¬%∃⊂hPα""%	4p T⊂-∀TCE		    ⊃E+β_@@@Qπ	H@Qβ'M_∞
αRαe%%JI0$!Q"αα∧λ
m
8z⊂≥p¬ wi			     (CDR (ASSOC Z Y)))
		      (NOT (LISTP Z))
		      (NOT (EQUAL U (QUOTE NO)))
		      (ISVAR Z))
		 (EQUAL (CDR (ASSOC Z U))
			(CDR (ASSOC Z Y)))),

  which we simplify, expanding ASSOC, to:

        T.


     So next consider:

      (IMPLIES (AND (NOT (EQUAL Z W))
		    (NOT (LISTP Z))
		    (ISVAR Z))
	       (EQUAL 0 (CDR (ASSOC Z Y)))),

which we named *1.1.1.6 above.  But this conjecture is subsumed by
formula *1.1.1.4 above.


     So we now return to:

      (IMPLIES (AND (NOT (EQUAL Z 0))
		    (NOT (LISTP Z))
		    (ISVAR Z))
	       (EQUAL 0 (CDR (ASSOC Z Y)))),

which we named *1.1.1.5 above.  This conjecture is subsumed by the
subgoal we named *1.1.1.4 above.


     So let us turn our attention to:

      (IMPLIES (AND (NOT (LISTP W)) (ISVAR W))
	       (EQUAL D (CDR (ASSOC W Y)))),

which we named *1.1.1.4 above.  Let us appeal to the induction
principle.  There is only one suggested induction.  We will induct
according to the following scheme:
      (AND (IMPLIES (NOT (LISTP Y)) (p D U Y))
	   (IMPLIES (AQUAL W (CAAR Y)) (p D W Y))
	   (IMPLIES (AND (LISTP Y)
			 (NOT (EQUAL W (CAAR Y)))
			 (p D W (CDR Y)))
		    (p D W Y))).
The inequality CDR.LESSP establishes that the measure (COUNT Y)
decpeases according to the well-founded function LESSP in the induction
step of the sc@!K[J\A)QJ↓CE←m∀AS]IUGiS←8AgGQ∃[BAaI←IkG∃bAiQIKJA]∃n~∃O=CYft4∀~∃π¬gJ@f8∩Q∪≠A→∪&Qβ≥λQ≥∨(Q→∪'Q A2R$~∀α∩@@@@Q≥∨(Q→∪'Q A.R$~∀∩∩@@@@Q∪'-¬$A.R$~∀∩∩Q⊗F,
1α⊃αB∞∩IαBεNN|→α]αJI%%%`h(4)αβ←#'≡AβO'oβ3'≠N+M1β/CCπ;&K;≥β&C∃β∪.3';'&K?;Mε{⊂∩∧~:4|~≥f"∧8J"bπMw hPβ"B%	34∪	_4h
λ→Qλ
	iuλ
	I4u∀∧**#!!"(λ∧∧λλ
	iuλ
	I4u∀∧
j*#!!"(λ∧∧λλ
	~uP4D
j*#!!"(
λZ503∧λλ
%∃A"C!$λ⊃;
≥:;X.L(~<N,;→=L≥]λ∃↑Y<kD∧∃~~.∀≤≤[lN8y<d∞~→(
l=h⊃M}[=;↔A"C!$λλλ∧∧⊃Kβ!!"]z
≤zλ≠,\;\h∞M→(≤∞-{yH≡≥→;.∞λ~_.1"C"E%JJJE%JJJE%JJHλdλ⊂(∧	(λ∪∧∧⊃(λλD
JJE%JJJE%JJJE!"C"@